Apple II Magazines (DO)

home *** CD-ROM | disk | FTP | other *** search

/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side A).zip / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side A).do / AD.PSOFTWARE.bas < prev next >

Wrap

BASIC Source File | 1996-12-24 | 15KB | 274 lines

10 TEXT 15 : 20 TITLE$ = " PERSONALITY PROFILE ": GOSUB 1315 25 HOME 30 VTAB 4: PRINT " THIS IS A NEW SELF-ANALYTIC PROGRAMTHAT IS ASTUTE IN ITS ACCURACY AT" 35 PRINT "DETERMINING ONE'S PERSONALITY DYNAMICS.": PRINT 40 PRINT " THIS WILL GIVE YOU SOME BRILLIANT INSIGHTS INTO WHO YOU REALLY ARE. NO MATTER WHAT KIND OF PERSONALITY ANALYSIS"; 45 PRINT "YOU HAVE TAKEN BEFORE, YOU WILL AGREE THAT THIS IS THE BEST.": PRINT 50 PRINT " THIS PROGRAM ALSO INCLUDES USEFUL TUTORIALS ON UNDERSTANDING PERSONALITY GROWTH AND DEVELOPMENT." 55 PRINT : PRINT 60 GOSUB 1145 65 INVERSE : HTAB 12: PRINT "PERSONALITY PROFILE": NORMAL : PRINT 70 PRINT : PRINT : SPEED= 100: PRINT "THIS PROGRAM CONTAINS THE FOLLOWING:": SPEED= 255: PRINT : PRINT 75 A$ = "PERSONALITY ANALYSIS": GOSUB 1045: GOSUB 1040 80 PRINT 85 A$ = "ANALYSIS INTERPRETATION": GOSUB 1045: GOSUB 1040 90 PRINT 95 A$ = "UNDERSTANDING ANGER": GOSUB 1045: GOSUB 1040 100 PRINT 105 A$ = "DIFFERENCES OF RESCUING AND HELPING": GOSUB 1045: GOSUB 1040 110 PRINT 115 A$ = "INDULGING AND NURTURING": GOSUB 1045: GOSUB 1040 120 PRINT 125 A$ = "STROKING AND DISCOUNTING": GOSUB 1045: GOSUB 1040 130 PRINT : PRINT : GOSUB 1145 135 INVERSE : HTAB 12: PRINT "PERSONALITY PROFILE": NORMAL : PRINT 140 PRINT " MAN HAS ALWAYS BEEN CURIOUS TO FINDOUT WHO HE REALLY IS AND HOW HE FUNCTIONS.": PRINT 145 PRINT " THE DYNAMICS OF THE HUMAN PERSONALITY ARE ENDLESSLY FASCINATING. WITH THIS PROGRAM YOU WILL BE ABLE TO EXPLORE YOUR OWN PERSONALITY AND UNDERSTAND YOUR BEHAVIOR." 150 VTAB 13: HTAB 20: INVERSE : PRINT "$29.50": NORMAL : VTAB 20 155 GOSUB 1145 160 TITLE$ = "ASSERTIVENESS TRAINING": GOSUB 1315 165 HOME 170 PRINT " THIS NEW PROGRAM GIVES YOU THE HELPTO BECOME THE PERSON THAT YOU HAVE ALWAYS WANTED TO BE.": PRINT 175 PRINT " FIRST, THERE IS AN ANALYSIS TO DETERMINE HOW ASSERTIVE YOU ACTUALLY ARE" 180 PRINT " THEN THE ART OF ASSERTIVENESS IS CLEARLY DEFINED WITH TUTORIALS DEALING WITH ALL MAJOR ASPECTS OF BEING ASSERTIVE.": PRINT 185 PRINT " YOU CAN EVEN LEARN HOW TO SAY ";: INVERSE : PRINT "NO": NORMAL : PRINT "WITHOUT FEELING GUILTY.": PRINT : PRINT : PRINT 190 GOSUB 1145 195 INVERSE : HTAB 10: PRINT "ASSERTIVENESS TRAINING": NORMAL : PRINT 200 PRINT : PRINT : SPEED= 100: PRINT "THIS PROGRAM CONTAINS THE FOLLOWING:": SPEED= 255: PRINT : PRINT 205 A$ = "WHAT IS ASSERTIVENESS?": GOSUB 1045: GOSUB 1040: PRINT 210 A$ = "HOW ASSERTIVE ARE YOU?": GOSUB 1045 215 A$ = "AN EVALUATION": GOSUB 1045: GOSUB 1040 220 PRINT :A$ = "VERBAL ASSERTIVENESS TRAINING": GOSUB 1045: GOSUB 1040: PRINT 225 A$ = "NON-VERBAL ASSERTIVENESS TRAINING": GOSUB 1045: GOSUB 1040: PRINT 230 A$ = "ASSERTIVENESS TOOLS": GOSUB 1045: GOSUB 1040: PRINT 235 A$ = "SOME SPECIAL PROBLEMS": GOSUB 1045: GOSUB 1040: PRINT 240 GOSUB 1145 245 VTAB 10: PRINT " THE FOLLOWING IS AN EXCERPT FROM ONE OF THE ASSERTIVENESS TRAINING FILES.IT COMPARES AND DIFFERENTIATES THE FOUR BASIC BEHAVIOR APPROACHES.": PRINT 250 PRINT " SOME OF THE TERMINOLOGY IS TAKEN FROM TRANSACTIONAL ANALYSIS AND GESTALT THERAPY.": PRINT : PRINT 255 GOSUB 660 260 TEXT : HOME : INVERSE : HTAB 15: PRINT "CHARACTERISTICS" 265 HTAB 18: VTAB 5: PRINT "PASSIVE" 270 HTAB 17: VTAB 10: PRINT "AGGRESSIVE" 275 HTAB 16: VTAB 15: PRINT "MANIPULATIVE" 280 HTAB 17: VTAB 20: PRINT "ASSERTIVE": NORMAL 285 VTAB 3: PRINT "LIFE POSITION" 290 VTAB 7: PRINT "I'M NOT OK" 295 VTAB 12: PRINT "YOU'RE NOT OK" 300 VTAB 17: PRINT "YOU'RE NOT OK BUT I'LL LET YOU THINK YOU ARE" 305 VTAB 22: PRINT "I'M OK AND YOU'RE OK 310 GOSUB 625 315 VTAB 3: PRINT "LIFE ROLE" 320 VTAB 7: PRINT "SHEEP" 325 VTAB 12: PRINT "BEARS" 330 VTAB 17: PRINT "SNAKES" 335 VTAB 22: PRINT "REAL PEOPLE" 340 GOSUB 625 345 VTAB 3: PRINT "LIFE GAMES" 350 VTAB 7: PRINT "IF IT WEREN'T FOR YOU - KICK ME - WHY DOES IT ALWAYS HAPPEN TO ME? 355 VTAB 12: PRINT "ZAP! I GOT YOU!" 360 VTAB 17: PRINT "I'M SMILING WHILE STABBING YOU IN THE BACK" 365 VTAB 22: PRINT "LET'S PLAY TENNIS" 370 GOSUB 625 375 VTAB 3: PRINT "SELF-SUFFICIENCY" 380 VTAB 7: PRINT "LOW" 385 VTAB 12: PRINT "MEDIUM" 390 VTAB 17: PRINT "LOOKS HIGH BUT IS USUALLY LOW" 395 VTAB 22: PRINT "USUALLY HIGH" 400 GOSUB 625 405 VTAB 3: PRINT "DECISION MAKING" 410 VTAB 7: PRINT "OTHERS CHOOSE FOR THEM 415 VTAB 12: PRINT "THEY CHOOSE FOR OTHERS AND THEY KNOW IT" 420 VTAB 17: PRINT "CHOOSE FOR OTHERS AND THEY DON'T KNOW IT" 425 VTAB 22: PRINT "CHOOSES FOR SELF" 430 GOSUB 625 435 VTAB 3: PRINT "PEOPLE THEY MAKE IMPORTANT" 440 VTAB 7: PRINT "EVERYONE BUT SELF" 445 VTAB 12: PRINT "PASSIVE PEOPLE" 450 VTAB 17: PRINT "ANYONE THEY CAN MANIPULATE" 455 VTAB 22: PRINT "THEMSELF" 460 GOSUB 625 465 VTAB 3: PRINT "FEEDBACK THEY GET FROM OTHERS" 470 VTAB 7: PRINT "GUILT, ANGER, FRUSTRATION, DISRESPECT" 475 VTAB 12: PRINT "HURT, DEFENSIVE, HUMILIATED" 480 VTAB 17: PRINT "CONFUSION, FRUSTRATION, ANGER" 485 VTAB 22: PRINT "RESPECT, LOVE, CARING" 490 GOSUB 625 495 VTAB 3: PRINT "SOCIAL PATTERN" 500 VTAB 7: PRINT "PUT THEMSELVES DOWN" 505 VTAB 12: PRINT "BOOST THEIR EGO BY PUTTING OTHERS DOWN" 510 VTAB 17: PRINT "PRETEND TO COMPLIMENT WHILE PUTTING DOWN" 515 VTAB 22: PRINT "GIVING AND LOVING" 520 GOSUB 625 525 VTAB 3: PRINT "DEFENSIVE PATTERN" 530 VTAB 7: PRINT "FLEES OR GIVES IN 535 VTAB 12: PRINT "OUTRIGHT ATTACK" 540 VTAB 17: PRINT "CONCEALED ATTACK" 545 VTAB 22: PRINT "EVALUATES AND ACTS" 550 GOSUB 625 555 VTAB 3: PRINT "ACTION PATTERN" 560 VTAB 7: PRINT "UNDER-REACTS" 565 VTAB 12: PRINT "OVER-REACTS" 570 VTAB 17: PRINT "ACTS INDIRECTLY" 575 VTAB 22: PRINT "ACTS DIRECTLY" 580 GOSUB 625 585 VTAB 3: PRINT "SUCCESS PATTERN" 590 VTAB 7: PRINT "FAILS OR LUCKS OUT" 595 VTAB 12: PRINT "BEATS OUT OTHERS" 600 VTAB 17: PRINT "WINS BY MANIPULATING OTHERS" 605 VTAB 22: PRINT "WINS HONESTLY" 610 GOSUB 660 615 : 620 GOTO 675 625 PRINT " <PRESS SPACE BAR> ": GET A$ 630 VTAB 3: PRINT " " 635 VTAB 7: PRINT " " 640 VTAB 12: PRINT " " 645 VTAB 17: PRINT " " 650 VTAB 22: PRINT " " 655 RETURN 660 PRINT " <PRESS SPACE BAR> ": GET A$ 665 FOR I = 1 TO 20: POKE 32,20 -I: POKE 33,2 *I: HOME : NEXT : GOSUB 670: RETURN 670 FOR J = 1 TO PAUSE: NEXT : RETURN 675 : 680 VTAB 10: PRINT " THE ASSERTIVENESS TRAINING PROGRAM IS ALL THAT YOU WOULD WANT AND MORE TO ASSIST YOU IN STATING YOUR NEEDS AND GETTING THEM MET.": PRINT : PRINT 685 HTAB 20: INVERSE : PRINT "$29.50": NORMAL : VTAB 20 690 GOSUB 1145 695 TITLE$ = " STRESS MANAGEMENT ": GOSUB 1315 700 HOME 705 PRINT " IN THIS AGE OF STRESS FROM EVERY FACET OF OUR LIFE, DEALING WITH THIS PROBLEM IS OF THE UTMOST IMPORTANCE.": PRINT 710 PRINT " MANY OF OUR PHYSICAL AILMENTS ARE SIMPLY A RESULT OF LIFE STRESS AND NOT KNOWING HOW TO DEAL WITH IT EFFECTIVELY.": PRINT 715 PRINT " THIS NEW PROGRAM DEFINES EXACTLY WHAT STRESS IS AND WHAT CAUSES IT. IT MEASURES THE STRESS IN YOU LIFE, GRAPHS IT, AND HELPS TO DEAL WITH IT' CAUSES.": PRINT 720 PRINT " THIS PROGRAM GIVES YOU ALL THIS INFORMATION AND MORE, TO REDUCE THE STRESS IN YOUR LIFE.": PRINT 725 GOSUB 1145 730 INVERSE : HTAB 12: PRINT "STRESS MANAGEMENT": NORMAL : PRINT 735 PRINT : PRINT : SPEED= 100: PRINT "THIS PROGRAM CONTAINS THE FOLLOWING:": SPEED= 255: PRINT : PRINT : POKE 32,8 740 VTAB 8:CHAR$ = "YOUR STRESS QUOTIENT": GOSUB 1275: GOSUB 1040: PRINT 745 CHAR$ = "WHAT IS STRESS": GOSUB 1275: GOSUB 1040: PRINT 750 CHAR$ = "ON STRESS MANAGEMENT": GOSUB 1275: GOSUB 1040: PRINT 755 CHAR$ = "YOUR STRESS GRAPH": GOSUB 1275: GOSUB 1040: PRINT 760 CHAR$ = "A SELF EVALUATION": GOSUB 1275: GOSUB 1040: PRINT 765 CHAR$ = "A FRIENDLY TALK": GOSUB 1275: GOSUB 1040: PRINT 770 CHAR$ = "THE STRESS SCALE": GOSUB 1275: GOSUB 1040: PRINT : POKE 32,0 775 GOSUB 1145 780 INVERSE : HTAB 12: PRINT "STRESS MANAGEMENT": NORMAL : PRINT 785 PRINT " YOU WILL FIND THIS PROGRAM AS USEFUL AS IT IS FASCINATING.": PRINT 790 PRINT " IT IS ONE OF THOSE PROGRAMS THAT YOU CAN RUN OVER AND OVER SINCE WE NEED A CONSTANT REMINDER THAT STRESS IS SOME-THING THAT CAN BE CONTRILLED.": PRINT 795 VTAB 13: HTAB 20: INVERSE : PRINT "$29.50": NORMAL : VTAB 20 800 GOSUB 1145 805 TITLE$ = " THE DREAM MACHINE ": GOSUB 1315 810 HOME : VTAB 5 815 PRINT " THIS IS THE MOST COMPLETE PROGRAM EVER WRITTEN TO EVALUATE AND HELP YOU ANALYZE YOUR DREAMS.": PRINT 820 PRINT " WITH THIS PROGRAM YOU ARE ABLE TO GESTALT YOUR DREAM IMAGES AND UNDERSTANDWHAT YOUR DREAMS ARE TELLING YOU.": PRINT 825 PRINT " NOT ONLY ARE THERE HELPFUL TUTORIALS, THERE IS ALSO A DREAM DICTIONARY WITH OVER 200 LISTINGS.": PRINT 830 PRINT " THE FLIP SIDE OF THE DISK CONTAINS A DREAM LOG WHICH ALLOWS YOU TO FILE YOUR DREAMS.": PRINT 835 GOSUB 1145 840 VTAB 10: PRINT " ALSO INCLUDED IN THIS PACKAGE IS THE 123 PAGE ILLUSTRATED BOOK:": PRINT 845 HTAB 15: VTAB 15: INVERSE : PRINT "BEYOND DREAMING": NORMAL : VTAB 22 850 GOSUB 1145 855 INVERSE : HTAB 13: PRINT "THE DREAM MACHINE": NORMAL : PRINT 860 PRINT : PRINT : SPEED= 100: PRINT "THIS PROGRAM CONTAINS THE FOLLOWING:": SPEED= 255: PRINT : PRINT 865 A$ = "WHAT DREAMS ARE ALL ABOUT": GOSUB 1045: GOSUB 1040: PRINT 870 A$ = "WHAT DO MY DREAMS MEAN?": GOSUB 1045: GOSUB 1040: PRINT 875 A$ = "WHAT ARE MY DREAM TEACHING ME: GOSUB 5020: GOSUB 5010: PRINT 880 A$ = "UNDERSTANDING DREAM SYMBOLS": GOSUB 1045: GOSUB 1040: PRINT 885 A$ = "UNDERSTANDING DREAM DYNAMICS": GOSUB 1045: GOSUB 1040: PRINT 890 A$ = "THE DREAM DICTIONARY": GOSUB 1045: GOSUB 1040: PRINT 895 A$ = "YOUR DREAM LOG": GOSUB 1045: GOSUB 1040: PRINT 900 GOSUB 1145 905 INVERSE : HTAB 13: PRINT "THE DREAM MACHINE": NORMAL : PRINT 910 PRINT " DREAMS AND DREAM INTERPRETATION HAVEFASCINATED MAN FROM THE BEGINNING OF RECORDED TIME.": PRINT 915 PRINT " WE SPEND OVER HALF OUR LIVES SLEEP-ING AND DREAMING. OUR DREAMS ARE FILLEDWITH HELPFUL INFORMATION ABOUT OUR EVERYDAY LIFE.": PRINT 920 PRINT " THIS PROGRAM IS FOR ANYONE WHO HAS EVER WANTED TO KNOW WHAT THEIR DREAMS MEAN, AND HOW TO USE THE INFORMATION.": PRINT 925 HTAB 21: VTAB 18: INVERSE : PRINT "$49.50": NORMAL : VTAB 23 930 GOSUB 1145 935 INVERSE : HTAB 8: PRINT "PSYCHOLOGICAL PSOFTWARE": NORMAL : PRINT 940 HTAB 4: VTAB 6: INVERSE :CHAR$ = "THE MOST EXCITING GAME IS LIFE": GOSUB 1275: GOSUB 1040: PRINT 945 HTAB 6:CHAR$ = "LET US MAKE YOU A WINNER !": GOSUB 1275: GOSUB 1040: NORMAL : PRINT 950 FOR X = 1 TO 1500: NEXT 955 HOME : INVERSE : HTAB 8: PRINT "PSYCHOLOGICAL PSOFTWARE": NORMAL : PRINT 960 PRINT "PERSONALITY PROFILE - $29.50": PRINT 965 PRINT "ASSERTIVENESS TRAINING - $ 29.95": PRINT 970 PRINT "STRESS MANAGEMENT - $29.50": PRINT 975 PRINT "THE DREAM MACHINE - $49.50": PRINT : PRINT 980 PRINT "TO ORDER SEND CHECK OR MONEY ORDER TO:": PRINT 985 HTAB 8: PRINT "PSYCHOLOGICAL PSOFTWARE 4757 SUN VALLEY RD. DEL MAR, CA. 92014": PRINT 990 PRINT : PRINT "PLEASE ADD $1.50 FOR SHIPPING ON ANY SIZE ORDER. IN CALIF. ADD 6% SALES TAX.": PRINT 995 GOSUB 1145 1000 VTAB 20: PRINT "WOULD YOU LIKE TO SEE THIS AD AGAIN? Y/N": GET B$ 1005 IF B$ = "N" THEN 1025 1010 IF B$ = "Y" THEN 15 1015 IF B$ < >"N" OR B$ < >"Y" THEN 1020 1020 VTAB 10: PRINT "YOU MUST PRESS A 'Y' OR AN 'N'.": FOR X = 1 TO 1000: NEXT X: GOTO 1000 1025 TEXT : HOME : VTAB 12: HTAB 14: PRINT "THANK YOU" 1030 PRINT CHR$(4);"RUN AD.MENU" 1040 FOR X = 1 TO 500: NEXT : RETURN 1045 : 1060 V = PEEK(37) 1065 S$ = "": FOR X = 1 TO 20 - LEN(A$)/2:S$ = S$ +" ": NEXT 1070 A$ = S$ +A$ +S$: IF LEN(A$)/2 < > INT( LEN(A$)/2) THEN A$ = A$ +" " 1075 FOR X = 1 TO 20:PR$ = LEFT$(A$,X) + RIGHT$(A$,X): VTAB V: HTAB 21 -X: PRINT PR$: NEXT X: GOSUB 1040: RETURN 1080 D$ = CHR$(4) 1085 PRINT : PRINT : PRINT : PRINT " PRESS (R) TO RE-RUN PRESS (M) FOR MENU. PRESS (Q) TO QUIT. ": GET R$: PRINT D$ 1090 IF R$ = "R" GOTO 1115 1095 IF R$ = "M" GOTO 1120 1100 IF R$ = "Q" GOTO 1125 1105 IF R$ < >"Q" OR R$ < >"M" OR R$ < >"R" THEN 1085 1110 PRINT : PRINT "* PRESS ANY KEY TO CONTINUE *": GET A$: FOR X = 23 TO 0 STEP -1: POKE 34,X: HOME : NEXT : RETURN 1115 TEXT : HOME : GOTO 70 1120 PRINT D$;"RUN MENU" 1125 TEXT : HOME : VTAB 12: HTAB 14: PRINT "THANK YOU" 1130 PRINT " <<PRESS SPACE BAR>> ": GET A$: RETURN 1135 POKE 33,1: FOR Z = 0 TO 5: FOR X = 0 TO 39: POKE 32,X: CALL -912: CALL -912: POKE 32,39 -X: CALL -912: CALL -912: NEXT : NEXT 1140 POKE 32,0: POKE 33,40: RETURN 1145 PRINT " <<PRESS SPACE BAR>> ": GET A$ 1150 WD = 0: FOR Z = 0 TO 31:WD = WD +1: POKE 33,WD: POKE 32,0: CALL -912: POKE 32,39 -Z: CALL -912: NEXT 1155 POKE 32,0: POKE 33,40: TEXT : HOME : RETURN 1160 GOTO 1145 1165 SPEED= 255 1170 HTAB 20 -( LEN(A$)/2): PRINT A$: RETURN 1190 FOR W = 1 TO 800: NEXT W: RETURN 1195 C = (40 - LEN(A$))/2:D = LEN(A$) +C 1200 HTAB C: PRINT A$; 1205 HTAB D -1 1210 FOR W = 1 TO 500: NEXT W 1215 FOR T = LEN(A$) TO 1 STEP -1 1220 PRINT " "; 1225 D = D -1: HTAB D -1 1230 NEXT T 1235 RETURN 1240 FOR S = 1 TO 20:SOUND = PEEK(A) - PEEK(A) + PEEK(A): NEXT S: RETURN 1265 FOR C = LEN(A$) TO 1 STEP -1 1270 HTAB C: PRINT MID$ (A$,C,1); 1275 FOR P = 1 TO LEN(CHAR$) 1280 A = -16336 1285 PRINT MID$ (CHAR$,P,1); 1290 SOUND = PEEK(A) - PEEK(A) + PEEK(A) 1295 FOR Y = 1 TO 60 1300 NEXT : NEXT 1305 PRINT 1310 RETURN 1315 TEXT : HOME :L = 25 1320 PRINT CHR$(7); 1325 VTAB 8: HTAB 9: PRINT "****************************" 1330 VTAB 12: HTAB 9: PRINT "****************************" 1335 VTAB 9: FOR I = 1 TO 3 1340 HTAB 9: PRINT "*";: HTAB 36: PRINT "*": NEXT I: FLASH 1345 VTAB 10: HTAB 12: PRINT TITLE$: NORMAL 1350 POKE -16368,0 1355 VTAB 23: PRINT " <<<PRESS SPACE BAR>>>" 1360 FOR I = 1 TO 2 STEP 0: VTAB 8: FOR J = 9 TO 35: HTAB J: PRINT " ";: FOR D = I TO L: NEXT D 1365 HTAB J: PRINT "*";: NEXT J 1370 IF PEEK( -16384) >127 THEN 1415 1375 FOR J = 8 TO 11: VTAB J: HTAB 36: PRINT "*": FOR D = 1 TO L: NEXT D: HTAB 36: PRINT " ";: NEXT J 1380 IF PEEK( -16384) >127 THEN 1415 1385 VTAB 12: FOR J = 36 TO 9 STEP -1 1390 HTAB J: PRINT " ";: FOR D = 1 TO L: NEXT D: HTAB J: PRINT "*";: NEXT J 1395 IF PEEK( -16384) >127 THEN 1415 1400 FOR J = 12 TO 9 STEP -1: HTAB 9: VTAB J: PRINT " ";: FOR D = 1 TO L: NEXT D: HTAB 9: PRINT "*";: NEXT J 1405 IF PEEK( -16384) >127 THEN 1415 1410 NEXT I 1415 POKE -16368,0 1420 PRINT CHR$(7) 1425 RETURN